home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_33956.txt < prev    next >
Text File  |  1989-06-13  |  5KB  |  236 lines

  1. -- card: 33956 from stack: in
  2. -- bmap block id: 41615
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=339 top=141 right=163 bottom=439
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: SELFED
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   delete line 1 of card field F1
  23.   delete line 1 of card field F2
  24.   delete line 1 of card field F3
  25.   repeat 32 times
  26.     put random of 32 into it
  27.     if it <=18 then add 1 to card field F1
  28.     if it >=19 and it <=24 then add 1 to card field F2
  29.     if it >=25 then add 1 to card field F3
  30.   end repeat
  31.   add the value of card field F1 to card field F4
  32.   add the value of card field F2 to card field F5
  33.   add the value of card field F3 to card field F6
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 2 (field)
  39. -- low flags: 00
  40. -- high flags: 0002
  41. -- rect: left=270 top=178 right=200 bottom=332
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: F1
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 00
  54. -- high flags: 0002
  55. -- rect: left=346 top=177 right=199 bottom=408
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: F2
  64.  
  65.  
  66. -- part 4 (field)
  67. -- low flags: 00
  68. -- high flags: 0002
  69. -- rect: left=420 top=177 right=199 bottom=482
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 3
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: F3
  78.  
  79.  
  80. -- part 5 (field)
  81. -- low flags: 00
  82. -- high flags: 0002
  83. -- rect: left=268 top=261 right=283 bottom=330
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: F4
  92.  
  93.  
  94. -- part 6 (field)
  95. -- low flags: 00
  96. -- high flags: 0002
  97. -- rect: left=347 top=261 right=283 bottom=409
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: F5
  106.  
  107.  
  108. -- part 7 (field)
  109. -- low flags: 00
  110. -- high flags: 0002
  111. -- rect: left=421 top=261 right=283 bottom=483
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: F6
  120.  
  121.  
  122. -- part 8 (button)
  123. -- low flags: 00
  124. -- high flags: 8003
  125. -- rect: left=353 top=24 right=46 bottom=420
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: RESET
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   delete line 1 of card field F1
  137.   delete line 1 of card field F2
  138.   delete line 1 of card field F3
  139.   delete line 1 of card field F4
  140.   delete line 1 of card field F5
  141.   delete line 1 of card field F6
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 9 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=336 top=313 right=335 bottom=436
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: CHI SQUARE
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   global bagone
  161.   global bagtwo
  162.   global bagthree
  163.   put the value of card field F4 into bagone
  164.   put the value of card field F5 into bagtwo
  165.   put the value of card field F6 into bagthree
  166.   go to card id 25732
  167.   put 0 into card field class1
  168.   put 0 into card field class2
  169.   put 0 into card field class3
  170.   put 0 into card field class4
  171.   put 0 into card field F5
  172.   put 0 into card field F6
  173.   put 0 into card field F7
  174.   put 0 into card field F8
  175.   put bagone into card field "CLASS1"
  176.   put bagtwo into card field "CLASS2"
  177.   put bagthree into card field "CLASS3"
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 10 (button)
  183. -- low flags: 00
  184. -- high flags: 8003
  185. -- rect: left=158 top=315 right=337 bottom=258
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: SUB HEADINGS
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   go to card id 34122
  197. end mouseUp
  198.  
  199.  
  200.  
  201.  
  202. -- part contents for background part 1
  203. ----- text -----
  204. BLACK-ALBINO MOUSE
  205.  
  206. -- part contents for background part 2
  207. ----- text -----
  208. If an albino mouse is crossed with a true breeding black coated mouse, the F1 all have the Agouti phenotype. This is a protective coat coloration in which the individual hairs on the back are generally black with a narrow yellow band near the tip. Self the F1 and determine the ratio of Agouti to Black to Albino mice seen in the F2. You may have to run the cross several times to get statistically significant numbers. Click on the Chi Square button to further test the vailidity of your hypothesis.
  209.  
  210. -- part contents for background part 8
  211. ----- text -----
  212. 176
  213.  
  214. -- part contents for card part 5
  215. ----- text -----
  216. 50
  217.  
  218. -- part contents for card part 6
  219. ----- text -----
  220. 18
  221.  
  222. -- part contents for card part 7
  223. ----- text -----
  224. 28
  225.  
  226. -- part contents for card part 2
  227. ----- text -----
  228. 16
  229.  
  230. -- part contents for card part 4
  231. ----- text -----
  232. 11
  233.  
  234. -- part contents for card part 3
  235. ----- text -----
  236. 5